home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 July / 1988-07.d64 / error analyzer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  39 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 15 poke 53280,15:poke 53281,15:poke646,6
  3. 20 print"[147]  copyright 1988 compute! pub., inc."
  4. 30 printtab(11)"all rights reserved"
  5. 40 print"loading in at location";
  6. 50 nu=peek(55)+256*peek(56)-742:gosub280
  7. 60 printnu;:print"[157].":poke55,lo:poke56,hi:clr
  8. 70 sa=peek(55)+256*peek(56):adr=sa
  9. 80 open15,8,15:z$=chr$(0)
  10. 90 open2,8,2,"error.obj,p,r"
  11. 100 input#15,e,e$:ife>0thenprint"disk error: "e$:close2:close15:end
  12. 110 get#2,a$,a$:rem get start address
  13. 120 get#2,a$,b$:a$=a$+z$:b$=b$+z$
  14. 130 pokeadr,asc(a$):pokeadr+1,asc(b$)
  15. 140 ifadr=sa+740then160
  16. 150 adr=adr+2:goto120
  17. 160 close2:close15:print"ok"
  18. 170 print"relocating... ";
  19. 180 fora=1to10:gosub270:gosub290
  20. 190 hex=hex+4:gosub320:next
  21. 200 fora=1to12:gosub270:gosub290:next
  22. 210 fora=606+sato630+sastep2
  23. 220 hex=a-1:gosub290:next:hex=155+sa
  24. 230 gosub320:he=658+sa:lo=peek(he+1)
  25. 240 hi=peek(he+6):nu=lo+256*hi+sa
  26. 250 gosub280:pokehe+1,lo:pokehe+6,hi
  27. 260 print"done":syssa:end
  28. 270 readhe:he=he+sa:return
  29. 280 hi=int(nu/256):lo=nu-hi*256:return
  30. 290 nu=peek(he+1)+256*peek(he+2)+sa
  31. 300 gosub280:pokehe+1,lo:pokehe+2,hi
  32. 310 return
  33. 320 nu=peek(he)+256*peek(he+2)+sa
  34. 330 gosub280:pokehe,lo:pokehe+2,hi
  35. 340 return
  36. 350 data 166,180,208,229,249,269,289
  37. 360 data 309,337,357,36,39,56,61,72,78
  38. 370 data 132,639,649,655,703,709
  39.